﻿
Public Class readCSV

    Dim huidigeRegel() As String


    'Voorbeeld blok
    '
    'Vak        = Uf ,,com2v,,dsn2v,,ict2v
    'Klas       = Uk ,,m21p3,,m22p3,,m23p3,,m24p3
    'Leraar     = Ul ,,kui,,man,,vuh
    'Lokaal     = Ur ,,R1_3.18
    '??         = Uz1 1 4 1 1
    '??         = Uz2 1 4 2 1           n
    '??         = Uz3 1 4 3 1            ,"flash"
    'Les?       = UZ00 ,5/1,,R1_3.18
    'Les?       = UZ00 ,5/2,,R1_3.18
    'Duur(week) = 0U ,6558,wk2-8,wk2-8,"t/b",,,,,,,,,Bn,,,,0,398341502
    '


    Public Sub readCSV()
        For Each regel In Form1.tbCSV.Lines

            If regel.StartsWith("Uf") Then
                huidigeRegel = Split(regel, ",")

                For i = 0 To huidigeRegel.Length - 1
                    If huidigeRegel(i) <> "" And huidigeRegel(i) <> "Uf " Then
                        If Form1.lbVak.Items.Contains(huidigeRegel(i)) = False Then
                            Form1.lbVak.Items.Add(huidigeRegel(i))
                        End If
                    End If
                Next
            End If

            If regel.StartsWith("Uk") Then
                huidigeRegel = Split(regel, ",")

                For i = 0 To huidigeRegel.Length - 1
                    If huidigeRegel(i) <> "" And huidigeRegel(i) <> "Uk " Then
                        If Form1.lbKlas.Items.Contains(huidigeRegel(i)) = False Then
                            Form1.lbKlas.Items.Add(huidigeRegel(i))
                        End If
                    End If
                Next
            End If
        Next
    End Sub

End Class